home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
comm
/
gt_pcp03.zip
/
DIAL-PCP.SCR
next >
Wrap
Text File
|
1991-11-28
|
5KB
|
174 lines
;
; ┌──────────────────────────────────────────┐
; │ Dialing Directory Script for PCP calls │
; │ by Dan Mancuso, Another BBS? (900/006) │
; │ (c) 1991 Version 0.3 11/28/91 DJM │
; └──────────────────────────────────────────┘
;
; ┌┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┐
; ├┼┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┼┤
; ├┤ ├┤
; ├┤ THIS IS THE SCRIPT THAT SHOULD BE ENTERED AS YOUR ├┤
; ├┤ DIALING SCRIPT IN THE PCPSTART.DIR DIRECTORY! ├┤
; ├┤ ~~~~~~~~ ├┤
; ├┼┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┬┼┤
; └┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┴┘
;
; (c)1991 Dan Mancuso - Another BBS? (900/006) 505-255-3623
; FREEWARE - But PLEASE register with above via NetMail
;
;
; This script is to be used ONLY as the Dialing Script for your local
; PCPursuit access node. It should be used as the dialing script in your
; PCPSTART.DIR listing. It will dial your local PCP access and load your
; LD dialing directory. Circular dialing will continue from there (You
; must pre-mark all numbers you wish to dial in your PCP.DIR to save time
; and prevent unnecessary PCP billings)
;
; -----------------------------------------------------------------------------
; Functions performed by PCP.KEY
; -----------------------------------------------------------------------------
; |
; ALT-1 = Connect to local PCP access | ALT-2 = Load and Display PCPSTART.DIR
; |
; ALT-3 = Begin PCP calls in Circular | ALT-4 = Load and Display PCP.DIR
; |
; ALT-5 = Typical PCBoard Login | ALT-6 = Typical GT Login
; |
; ALT-7 = First Last | ALT-8 = GT Login (Bypass Bulletins)
; |
; ALT-9 = Password (with <CR>) | ALT-10= Hang up on PCPursuit
; |
; -----------------------------------------------------------------------------
;
V1 = ""
V29 = ""
V28 = 0
;
CLEAR
SCREEN OFF
CURSOR OFF
QUIET OFF
MKWIN 5 1 75 9 "GT 17.00 - PCP Dialing Script"
SETCOLOR 14 0
WRITELN " "
WRITELN " ▒▒▒▒ ▒▒▒ ▒▒▒ ▒ ▒▒▒ ▒ ▒ ▒▒▒▒▒ ▒▒▒▒▒ ▒▒▒▒▒ ▒▒▒▒▒"
WRITELN " ▒ ▒ ▒ ▒ ▒ ▒ ▒ ▒▒ ▒ ▒ ▒ ▒ ▒ ▒ ▒"
WRITELN " ▒ ▒ ▒ ▒▒▒▒▒ ▒ ▒ ▒ ▒ ▒ ▒▒▒▒▒ ▒▒▒▒▒ ▒ ▒▒▒▒▒"
WRITELN " ▒ ▒ ▒ ▒ ▒ ▒ ▒ ▒ ▒▒ ▒ ▒ ▒ ▒ ▒ "
WRITELN " ▒▒▒▒ ▒▒▒ ▒ ▒ ▒▒▒▒ ▒▒▒ ▒ ▒ ▒▒▒▒▒ ▒ ▒▒▒▒▒ ▒ "
:RETRY
V28 ADD %28 1
V27 STR %28
MKWIN 10 9 70 20 "PCP Call Information"
WRITELN
SETCOLOR 2 0
WRITELN " Dialing local PCP Access number now... Please wait! "
WRITELN
SETCOLOR 3 0
WRITE " Attempt: "
SETCOLOR 14 0
WRITELN %27
GOTOXY 16 10
SETCOLOR 6 0
WRITE "Press ["
SETCOLOR 12 0
WRITE "ESC"
SETCOLOR 6 0
WRITE "] to stop dialing"
GOTOXY 1 6
FLUSH
;
; INITIALIZE MODEM - CHANGE STRING TO HOWEVER YOU LIKE TO INITIALIZE YOUR
; MODEM (OR "COMMENT" OUT THE NEXT TWO LINES TO SKIP MODEM INITIAZE)
; (MODEM SHOULD BE IN "VERBOSE RESULT" MODE (OR CHANGE "OK" TO "0")
; { }
SENDLN AT V1 X4 E1 S11=55 S2=43 S0=0
WAIT FOR "OK"
;
DIALER
CASE %FAIL
TRUE
RMWIN
GOTO RETRY
ESAC
SETCOLOR 3 0
WRITELN " Connected to PCPursuit... Setting Baud and Terminal ID "
TWAIT 2000
SEND "@"
TWAIT 500
SENDLN "D"
WAIT 15 FOR "TERMINAL="
CASE %FAIL OF
TRUE
SETCOLOR 14 4
WRITELN " No response from HUNT/CONFIRM "
GOTO QUIT
ESAC
TWAIT 500
SENDLN "D1"
WAIT 15 FOR "@"
CASE %FAIL OF
TRUE
SETCOLOR 14 4
WRITELN " No response from TERMINAL TYPE ID "
GOTO QUIT
ESAC
SETCOLOR 15 0
WRITELN
WRITELN " Ready to dial PCP remote site(s) "
WRITELN " --) After this window disappears (-- "
WRITELN " Hit ALT-F3 to start dialing! "
;
; THE FOLLOWING TWAIT CAN BE REDUCED AFTER YOU GET THE HANG OF THIS
;
TWAIT 5000
SET ONLINE TRUE
;
WRITELN " ERROR 1 - YOU SHOULD NEVER SEE THIS - DIAL-PCP "
;
:QUIT
WRITELN
CLEAR
CASE %DCD OF
FALSE
SETCOLOR 14 4
WRITELN " There was NO carrier present! "
ALARM 5
GOTO NODCD
ESAC
SETCOLOR 12 0
WRITELN " Disconnecting from PC Pursuit..... "
SENDLN
SEND "@"
TWAIT 500
SENDLN
WAIT FOR "@"
TWAIT 500
SEND "HANGUP"
TWAIT 500
SENDLN
GETLN V29
WRITELN
SETCOLOR 15 0
WRITELN %29
SETCOLOR 14 4
WAIT 20 FOR "NO CARRIER"
CASE %FAIL OF
TRUE
HANG-UP
ESAC
SET ONLINE FALSE
;
WRITELN " ERROR 2 - YOU SHOULD NEVER SEE THIS - DIAL-PCP "
;
:NODCD
WRITELN
SETCOLOR 3 0
ALARM 10
RMWIN
SET ONLINE FALSE
;
WRITELN " ERROR 3 - YOU SHOULD NEVER SEE THIS - DIAL-PCP "
;